home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 247_01 / fact.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-17  |  640 b   |  22 lines
  1. /*
  2.  *   Program to calculate factorials.
  3.  */
  4.  
  5. #include <stdio.h>
  6. #include "miracl.h"   /* include MIRACL system */
  7.  
  8. main()
  9. { /* calculate factorial of number */
  10.     big nf;           /* declare "big" variable nf */
  11.     int n;
  12.     mirsys(500,10);   /* initialise system to base 10 ,500 digits per "big" */
  13.     nf=mirvar(1);     /* initialise "big" variable nf=1 */
  14.     printf("factorial program\n");
  15.     printf("input number n= \n");
  16.     scanf("%d",&n);
  17.     getchar();
  18.     while (n>1) premult(nf,n--,nf);   /* nf=n!=n*(n-1)*(n-2)*....3*2*1  */
  19.     printf("n!= \n");
  20.     otnum(nf,stdout); /* output result */ 
  21. }
  22.